home *** CD-ROM | disk | FTP | other *** search
/ SOHO - Exploring the Sun - 2003 Update / SOHO - Exploring the Sun - 2003 Update.iso / pc / data / main.dcr / scripts_191.ls < prev    next >
Encoding:
Text File  |  2003-02-25  |  719 b   |  24 lines
  1. on newsunShowClip name
  2.   global km, clip_directory, y_offset
  3.   set y_offset to 34
  4.   if name = EMPTY then
  5.     return 
  6.   else
  7.     set clipname to "@::data" & km & "mov" & km & "newsun_1" & km & clip_directory & km & name & ".mov"
  8.     set cl to "nsd_" & clip_directory
  9.     set the puppet of sprite 114 to 1
  10.     set the member of sprite 114 to member name of castLib cl
  11.     set the locH of sprite 114 to 320
  12.     set the locV of sprite 114 to 439
  13.     set the ink of sprite 114 to 36
  14.     set the blend of sprite 114 to 100
  15.     set the fileName of member "templns" to clipname
  16.     if SpriteExists(110) > 0 then
  17.       ClrCursorS()
  18.       WaitCursor()
  19.       puppetTransition(9, 2)
  20.       go(the frame + 1)
  21.     end if
  22.   end if
  23. end
  24.